(eval-expression): Fix typo: missing paren.

(read-expression-map): Use an indirection to minibuffer-local-map rather
than copying it.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8babd63b47d22acbc56418d5baebe05cfc8eca07..776e9cb7d4589afa81089ce116d9d0ffe07bbb2c 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -369,7 +369,7 @@ Other major modes are defined by comparison with this one."
   (interactive)
   (kill-all-local-variables))
 
-(defvar read-expression-map (copy-keymap minibuffer-local-map)
+(defvar read-expression-map (cons 'keymap minibuffer-local-map)
   "Minibuffer keymap used for reading Lisp expressions.")
 (define-key read-expression-map "\M-\t" 'lisp-complete-symbol)
 
@@ -386,7 +386,7 @@ Value is also consed on to front of the variable `values'."
    (let* ((minibuffer-history-sexp-flag t))
      (list (read-from-minibuffer "Eval: "
                                 nil read-expression-map t
-                                'read-expression-history)))
+                                'read-expression-history))))
   (setq values (cons (eval expression) values))
   (prin1 (car values) t))